home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / MacOberon / MacOberon (tools) / EditKeys.Text (.txt) < prev    next >
Encoding:
Oberon Text  |  1990-12-20  |  1.9 KB  |  38 lines  |  [.Ob./.Ob2]
  1. Syntax10.Scn.Fnt
  2. Syntax10i.Scn.Fnt
  3. (*redefine hot-key to Bottom (between delete-right and page-down on Extended Keyboard) *)
  4.     \ #4
  5. (*built-in functions*)
  6.     write (^0)    char (^1)    font (^2)    call (^4)    (*these take a param*)
  7.     keep (^5)    pick (^6)    caret (^7)    indent (^8)    (*no param*)
  8. (*some font preset macros*)
  9.     i ("Syntax10i.Scn.Fnt" font)    b ("Syntax10b.Scn.Fnt" font)    n ("Syntax10.Scn.Fnt" font)
  10. (*some template macros*)
  11.     tab ("9" char)    cr ("13" char)    = (cr indent)    ` (= tab)
  12. (*some macros calling Oberon commands*)
  13.     tool ("Write.Open MyTool.Txt" call)
  14.     d ("KeyCmds.DateStamp Syntax10.Scn.Fnt" call)
  15.     incl ("KeyCmds.Include Errors.Text 63 98" call)
  16. (*some template macros for programming purposes*)
  17.     Name ("Michael Franz" write)
  18.     #40 (tab "(*" write caret "*)" write i)
  19.     #41 (tab "(**" write caret "**)" write i)
  20.     M ("MODULE " write caret ";    (** " write Name "  **)" write cr "END ." write cr)
  21.     I (cr tab "IMPORT" write cr tab tab caret ";" write cr)
  22.     C (cr indent tab "CONST" write)
  23.     T (cr indent tab "TYPE" write)
  24.     V (cr indent tab "VAR" write)
  25.     B (cr indent "BEGIN" write cr indent "END " write caret ";" write cr)
  26.     E (cr indent "END " write caret ";" write cr)
  27.     p (cr cr indent "PROCEDURE " write caret ";" write cr indent  "BEGIN" write cr indent "END ;" write)
  28.     P (cr indent tab "PROCEDURE " write caret ";" write cr indent tab "BEGIN" write cr indent tab "END ;" write)
  29. (*some template macros for e-mail purposes*)
  30.     name ("mf" write)
  31.     mail ("To: " write caret cr "cc: Franz" write cr "Re: " write cr cr cr name cr)
  32.     cas ("Net.SendMail *" call name)
  33.     nw.ass ("crelier franz heeb pfister" write)
  34.     jg.ass ("hiestand rege sommerer stamm vetterli" write)
  35.     cs.ass (nw.ass cr "To: " write jg.ass )
  36. (*default macro taken when no match found*)
  37.     OTHERWISE ("~" write)
  38.